home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / AMOSList / AMOSLIST.0897 / 000025_amos-request@svcs1.digex.net_Sun Aug 3 16:59:21 1997.msg < prev    next >
Text File  |  1997-09-09  |  3KB  |  99 lines
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id QAA29768
  3.     for <mcox@access.digex.net>; Sun, 3 Aug 1997 16:59:20 -0400 (EDT)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id QAA00772
  6.     for amos-out; Sun, 3 Aug 1997 16:00:19 -0400 (EDT)
  7. Received: from mail2.access.digex.net (mail2.access.digex.net [205.197.247.3])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id QAA00769
  9.     for <amos-list@svcs1.digex.net>; Sun, 3 Aug 1997 16:00:18 -0400 (EDT)
  10. Received: from upsmot04 (upsmot04.msn.com [204.95.110.86])
  11.     by mail2.access.digex.net (8.8.5/8.8.5) with SMTP id QAA24849
  12.     for <amos-list@access.digex.net>; Sun, 3 Aug 1997 16:00:17 -0400 (EDT)
  13. Received: from upmajb06 ([204.95.110.89]) by upsmot04 (8.6.8.1/Configuration 4) with SMTP id NAA18736 for <amos-list@access.digex.net>; Sun, 3 Aug 1997 13:02:04 -0700
  14. Date: Sun, 3 Aug 97 11:47:00 UT
  15. From: "SYLVIA SANCHEZ" <CHILDRENOFSUN@msn.com>
  16. Message-Id: <UPMAIL02.199708031959030298@msn.com>
  17. To: amos-list@access.digex.net
  18. Subject: FAST MEMORY SOLVED!
  19. Status: O
  20. X-Status: 
  21.  
  22. Hi Mr James Ramsden:
  23.  
  24. I admit that my ramblings were not too helpful, but I only briefly looked at 
  25. the problem at the time, however I do not think I was too far off base.  
  26. Anyway, I checked out my Mr. Amos MAPP disks and found this nifty program by 
  27. Neil Kennedy who seems to be a pretty good programmer.  By the way, has anyone 
  28. heard anything about my dear friend Brian Bell aka Mr Amos in Ireland, as I 
  29. have not heard from him in about one year.  Sob!
  30.  
  31. The program is the following:
  32.  
  33. adress
  34. y_screen=41
  35. do
  36.   if key state(95): rem help
  37.     memories[7]
  38.   end if
  39.   if upper$(Inkey$)="Q":  rem quit
  40. loop
  41.  
  42. procedure memories[_screen_number]
  43. auto view off
  44. screen open _screen_number,640,16,2,hires
  45. curs off: flash off: colour 1,$FFF: cls
  46. movescreen[_screen_number]
  47. fast$="F"
  48. chip$="C"
  49. repeat
  50.   repeat
  51.   cls
  52.   input "Would you like amt fo chip or fast memory=>";TYPEOFMEM$
  53.   TYPEOFMEM$=Left$(Upper$(TYPEOFMEM$),10
  54.   fix(2)
  55.   until (TYPEOFMEM$=Chip$) or (TYPEOFMEM$=Fast$)
  56.   if TYPEOFMEM$=fast$
  57.      TYPEOFMEM$="FAST"
  58.      MEMLEFT= Fast Free  (See, the command did come in handy)
  59.      MB#=Fast Free
  60.   else TYPEOFMEM$="CHIP"
  61.      MEMLEFT= Chip Free
  62.      MB# = (Chip Free/1024)/1024.0
  63.   end if
  64.   cls
  65.   centre "The # of bytes left in "+TYPEOFMEM$+" mem is "+Str$(MEMLEFT)
  66.   print
  67.   Centre "<press a key>"
  68.   wait key
  69.   cls
  70.   centre "This amounts to "+Str$(MEMLEFT/1024)+"K"
  71.   print
  72.   centre "<press a key>"
  73.   wait key
  74.   cls
  75.   centre "And finally you have "+Str$(MB#)+" MBs left to us."
  76.   print
  77.   centre "<press any key or esc to quit>"
  78. until key state(69)
  79. screen close _screen_number
  80. end proc
  81.  
  82. procedure adress
  83.   screen open 0,320,256,16,lowres
  84.   curs off: paper 0: cls: hide: flash off
  85.   colour 1,$0
  86.   colour 2,$FFF
  87.   X=75: Y=100
  88.   and it just keeps going on...
  89.  
  90. When I ran the program, it stated that I had 1016656 fast ram, that this 
  91. amounts to 992 K, and that 1016656.04 MBs was left to use.  Pretty good!  OK, 
  92. I just realized that the program did not state start of address, but it is 
  93. more information than before.  I have to give thanks to Neil Kennedy for the 
  94. work he did on the problem and to Brian Bell for taking the trouble to archive 
  95. the solution.
  96.  
  97. >From the one NOT known as SYLVIA but is actually Rudy.
  98. ChildrenOfSun@msn.com
  99.